﻿Public Class Form1

    Dim Logger = New Logger("I", "Application démarrée")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DatabaseCGDataSet.peripheriques'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.PeripheriquesTableAdapter.Fill(Me.DatabaseCGDataSet.peripheriques)
        Vel_ListeType.Items.Add("Route")
        Vel_ListeType.Items.Add("Vtt")

        'TODO: cette ligne de code charge les données dans la table 'DatabaseCGDataSet.sorties'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.SortiesTableAdapter.Fill(Me.DatabaseCGDataSet.sorties)
        Logger = New Logger("I", "Table 'sorties' chargée")
        'TODO: cette ligne de code charge les données dans la table 'DatabaseCGDataSet.velos'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.VelosTableAdapter.Fill(Me.DatabaseCGDataSet.velos)
        Logger = New Logger("I", "Table 'velos' chargée")



        Dim ListeMarques = New Listing("marque", "NOM", Per_ListeMarque)
        Dim ListeType = New Listing("type_perif", "NOM", Per_ListeType)
        Dim ListeVelos = New Listing("velos", "NOM", Per_Affect)
    End Sub


    
    
    Private Sub BtnaddVelo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddVelo.Click
        Dim Nbdelignevelo = DGV_TabVelos.RowCount
        Dim NewId = Nbdelignevelo + 1
        Dim TypeVelo = vbNull
        If Vel_ListeType.Text = "Route" Then
            TypeVelo = 1
        End If

        If Vel_ListeType.Text = "Vtt" Then
            TypeVelo = 2
        End If

        Dim Dateok = Vel_DateJour.Text & "/" & Vel_DateMois.Text & "/" & Vel_DateYear.Text & " 00:00:00"

        Dim InsertVelo As New DatabaseCGDataSetTableAdapters.velosTableAdapter
        InsertVelo.Insert( _
        NewId, _
        Vel_Nom.Text, _
        Vel_Km_Init.Text, _
        Dateok, _
        TypeVelo, _
        Vel_Prix.Text, _
        Vel_Notes.Text)

        Call RefreshDataSource()

    End Sub

    Private Sub RefreshDataSource()
        Me.VelosTableAdapter.Fill(Me.DatabaseCGDataSet.velos)
    End Sub
End Class
